home *** CD-ROM | disk | FTP | other *** search
/ SuperHack / SuperHack CD.bin / CODING / DELPHI / GIF.ZIP / GIFEDIT.DFM / GIFEDIT.txt
Encoding:
Text File  |  1996-04-14  |  2.1 KB  |  113 lines
  1. object GifForm: TGifForm
  2.   Left = 202
  3.   Top = 99
  4.   HorzScrollBar.Visible = False
  5.   VertScrollBar.Visible = False
  6.   ActiveControl = OKBtn
  7.   BorderStyle = bsDialog
  8.   Caption = 'Select a GIF File'
  9.   ClientHeight = 359
  10.   ClientWidth = 540
  11.   Font.Color = clBlack
  12.   Font.Height = -11
  13.   Font.Name = 'MS Sans Serif'
  14.   Font.Style = [fsBold]
  15.   PixelsPerInch = 96
  16.   Position = poScreenCenter
  17.   TextHeight = 13
  18.   object FileBevel: TBevel
  19.     Left = 10
  20.     Top = 4
  21.     Width = 166
  22.     Height = 347
  23.     Shape = bsFrame
  24.     IsControl = True
  25.   end
  26.   object LoadProgress: TRzProgressBar
  27.     Left = 200
  28.     Top = 320
  29.     Width = 126
  30.     Height = 26
  31.     BackColor = clWindow
  32.     BorderWidth = 0
  33.     InteriorOffset = 0
  34.     PartsComplete = 0
  35.     Percent = 0
  36.     TotalParts = 100
  37.   end
  38.   object GifImageCtl: TGifImage
  39.     Left = 190
  40.     Top = 40
  41.     Width = 341
  42.     Height = 266
  43.     Gif.GifVersion = v87a
  44.     Gif.Interlaced = False
  45.     ParentColor = False
  46.     OnStatusChange = GifImageCtlStatusChange
  47.   end
  48.   object OKBtn: TBitBtn
  49.     Left = 350
  50.     Top = 320
  51.     Width = 77
  52.     Height = 27
  53.     TabOrder = 4
  54.     OnClick = BtnClick
  55.     Kind = bkOK
  56.     Margin = 2
  57.     Spacing = -1
  58.     IsControl = True
  59.   end
  60.   object CancelBtn: TBitBtn
  61.     Left = 445
  62.     Top = 320
  63.     Width = 77
  64.     Height = 27
  65.     TabOrder = 5
  66.     OnClick = BtnClick
  67.     Kind = bkCancel
  68.     Margin = 2
  69.     Spacing = -1
  70.     IsControl = True
  71.   end
  72.   object DriveList: TDriveComboBox
  73.     Left = 20
  74.     Top = 15
  75.     Width = 146
  76.     Height = 19
  77.     DirList = DirectoryList
  78.     TabOrder = 0
  79.   end
  80.   object DirectoryList: TDirectoryListBox
  81.     Left = 20
  82.     Top = 40
  83.     Width = 146
  84.     Height = 130
  85.     FileList = FileList
  86.     IntegralHeight = True
  87.     ItemHeight = 16
  88.     TabOrder = 1
  89.   end
  90.   object FileList: TFileListBox
  91.     Left = 20
  92.     Top = 180
  93.     Width = 145
  94.     Height = 158
  95.     IntegralHeight = True
  96.     ItemHeight = 13
  97.     Mask = '*.gif'
  98.     TabOrder = 2
  99.     OnChange = FileListChange
  100.   end
  101.   object FilePanel: TPanel
  102.     Left = 190
  103.     Top = 5
  104.     Width = 341
  105.     Height = 26
  106.     BevelInner = bvRaised
  107.     BevelOuter = bvLowered
  108.     BorderWidth = 1
  109.     Caption = 'Select a File'
  110.     TabOrder = 3
  111.   end
  112. end
  113.